﻿Imports Entidad
Imports Negocio
Imports Utilitario
Public Class frmBusquedaSunat

    Dim nroRuc As String = ""

    Sub New()

        ' Llamada necesaria para el diseñador.
        InitializeComponent()

        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().

    End Sub

    Sub New(numRuc As String)

        ' Llamada necesaria para el diseñador.
        InitializeComponent()

        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
        Me.nroRuc = numRuc
    End Sub

    Dim util As New Utiles
    Dim servicio As New ClienteNegocio

    Sub leerXML(numRUC As String)
        Try
            Dim cliente As Cliente = servicio.obtenerClienteSunat(numRUC)
            txtDescripcion.Text = cliente.CLI_RazonSocialSunat
            txtRucAntiguo.Text = cliente.CLI_RucAntiguoSunat
            txtEstado.Text = cliente.CLI_EstadoSunat
            txtExcluido.Text = cliente.CLI_PatronSunat
            txtRetencion.Text = cliente.CLI_AgenteRetencionSunat
            txtComercial.Text = cliente.CLI_NomComercialSunat
            txtDireccion.Text = cliente.CLI_DireccionSunat
            txtSituacion.Text = cliente.CLI_SituacionSunat
            txtTelefono.Text = cliente.CLI_TelefonoSunat
            txtDependencia.Text = cliente.CLI_DependenciaSunat
            txtTipo.Text = cliente.CLI_TipoSunat
            txtDNI.Text = cliente.CLI_DniSunat
            txtNacimiento.Text = cliente.CLI_FechaNacimientoSunat
            txtIniActividad.Text = cliente.CLI_InicioActividadSunat
            txtActEconomica.Text = cliente.CLI_ActividadEconomicaSunat
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub btnConsultar_Click(sender As System.Object, e As System.EventArgs) Handles btnConsultar.Click
        leerXML(txtRUC.Text.Trim)
    End Sub

    Private Sub txtRUC_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles txtRUC.KeyDown
        Dim texto As String = txtRUC.Text.Trim
        If e.KeyValue = Keys.Enter Then
            leerXML(texto)
        End If
    End Sub

    Private Sub frmBusquedaSunat_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        If nroRuc <> "" Then
            txtRUC.Text = nroRuc
            util.enfocar()
        End If
    End Sub

End Class